home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / bbs_lord / life118d.zip / LIFE.ZIP / TESTTXT.DAT < prev    next >
Text File  |  1996-04-03  |  8KB  |  232 lines
  1. @#BEGIN
  2. //Very important to have the command `<SetVarFile> if your program
  3. //has a .var file included the setvarfile commands tells lordlife
  4. //to look for or create a .vat --variable dat file.
  5. `<SetVarFile>
  6. //if testdate not equal thedate then reset your daily variables
  7. `<else>=[(TestDate),(TheUser),(TheDate),@#NewDayResets]
  8. //set testdate=thedate
  9. `<SetVal>=[(TestDate),(TheUser),(TheDate)]
  10. //call the main menu
  11. `<SetMenu>=[MainMenu]
  12. //following are the daily resets for the testtxt.dat
  13. @#NewDayResets
  14. `<NewLine>
  15. `<SetVal>=[(TestInt),(TheUser),0]
  16. `<SetVal>=[(TestDate),(TheUser),(TheDate)]
  17. `<SetMenu>=[MainMenu]
  18. @#MainMenu
  19. `<SetOptions>=[H,S,Q,M]
  20. `<NewLine>
  21. `<Clear>
  22. `<NewLine>
  23. `<GotoXY>=[1,1]
  24. `0                                                 TEST MODULE...
  25. `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  26. `<RetOff>
  27. `%Lord has been operational for: `3
  28. `<PrintVal>=[(LTime),(TheUser)]
  29. `% days.
  30. `<NewLine>
  31. `<RetOn>
  32. `2  You are glad your journey is finally over...it was a long way from the
  33. `2forests to the TEST MODULE...
  34. `2
  35. `<NewVar>=[(FunTestVar),String]
  36. `<SetVal>=[(FunTestVar),(TheUser),heheheh it works! :)]
  37. `<PrintVal>=[(FunTestVar),(TheUser)]
  38. `<DelVar>=[(FunTestVar)]
  39. `2
  40. `2
  41. `5             ((((`@S`5))))`3tay here, leave lord and life!!!
  42. `2
  43. `2     (`5H`2)uh? what?           (`4Q`2)uit back to the sign post
  44. `2     (`5M`2)ake an NPC...
  45. `2
  46. @#MainMenuOptionsM
  47. //set the name of our new player as TESTMOD PERSON
  48. `<SetVal>=[(TempStr1),(TheUser),TESTMOD PERSON]
  49. //following will change (TempStr1) to ###NotFound### if user not
  50. //in lords player.dat file.
  51. `<LordExist>=[(TempStr1)]
  52. //else if value other than ###NotFound### then do UserFound
  53. //so we only want to stop execution if user found
  54. `<else>=[(TempStr1),(TheUser),###NotFound###,@#UserFound]
  55. //  now becuz of above test we now know user duz not exist...
  56. //  below line creates a lord user in a deleted account --or--
  57. //  in a new acct if needed and available...
  58. `<MakeLordUser>=[TESTMOD PERSON]
  59. `<SetVal>=[(TempStr1),(TheUser),TESTMOD PERSON]
  60. `<LordExist>=[(TempStr1)]
  61. //if value is ###NotFound### then go to the not found process
  62. //so if the MakeLordUser did not work we can do something else
  63. `<if>=[(TempStr1),(TheUser),###NotFound###,@#UserNotFound]
  64. `<SetVal>=[(LordNick),(TempStr1),MrTestMan]
  65. `%Please wait a sec...
  66. `<SetVal>=[(LordHP),(TempStr1),50]
  67. `<SetVal>=[(Bad),(TempStr1),1]
  68. `<SetVal>=[(Rate),(TempStr1),1]
  69. `<SetVal>=[(LordHPMax),(TempStr1),50]
  70. `<SetVal>=[(LWeaponNum),(TempStr1),0]
  71. `<SetVal>=[(LordWeapon),(TempStr1),Nothing]
  72. `<SetVal>=[(LSeenMaster),(TempStr1),0]
  73. `<SetVal>=[(LForestFights),(TempStr1),50]
  74. `% NPC Player...
  75. `<SetVal>=[(LHumanFights),(TempStr1),50]
  76. `<SetVal>=[(LordGold),(TempStr1),5000]
  77. `<SetVal>=[(LordBank),(TempStr1),5000]
  78. `<SetVal>=[(LDefence),(TempStr1),10]
  79. `<SetVal>=[(LStrength),(TempStr1),10]
  80. `<SetVal>=[(LCharm),(TempStr1),10]
  81. `<SetVal>=[(LSeenDragon),(TempStr1),0]
  82. `<SetVal>=[(LSeenViolet),(TempStr1),0]
  83. `% needs to be...
  84. `<SetVal>=[(Level),(TempStr1),1]
  85. `<SetVal>=[(LTime),(TempStr1),30000]
  86. `<SetVal>=[(LordArmour),(TempStr1),nothing]
  87. `<SetVal>=[(LArmourNum),(TempStr1),0]
  88. `<SetVal>=[(LDead),(TempStr1),0]
  89. `<SetVal>=[(LInn),(TempStr1),0]
  90. `<SetVal>=[(LGems),(TempStr1),10]
  91. `<SetVal>=[(LordExp),(TempStr1),100]
  92. `<SetVal>=[(LSex),(TempStr1),0]
  93. `<SetVal>=[(LBard),(TempStr1),0]
  94. `<SetVal>=[(LastAlive),(TempStr1),30000]
  95. `<SetVal>=[(Lays),(TempStr1),0]
  96. `<SetVal>=[(Why),(TempStr1),0]
  97. `<SetVal>=[(POnNow),(TempStr1),0]
  98. `<SetVal>=[(MTime),(TempStr1),0]
  99. `<SetVal>=[(TimeOn),(TempStr1),00:00]
  100. `<SetVal>=[(LClass),(TempStr1),1]
  101. `% created...
  102. `<SetVal>=[(LHaveHorse),(TempStr1),0]
  103. `<SetVal>=[(LoveStr),(TempStr1),]
  104. `<SetVal>=[(QMarriedVar),(TempStr1),-1]
  105. `<SetVal>=[(LKids),(TempStr1),0]
  106. `<SetVal>=[(LTimesWon),(TempStr1),0]
  107. `<SetVal>=[(LSkillW),(TempStr1),1]
  108. `<SetVal>=[(LSkillM),(TempStr1),1]
  109. `<SetVal>=[(LSkillT),(TempStr1),1]
  110. `3 ... Now ...
  111. `<SetVal>=[(LevelW),(TempStr1),1]
  112. `<SetVal>=[(LevelM),(TempStr1),1]
  113. `<SetVal>=[(LevelT),(TempStr1),1]
  114. `<SetVal>=[(InnRan),(TempStr1),0]
  115. `<SetVal>=[(Married),(TempStr1),-1]
  116. `3 ...Just - a - bout ...
  117. `<SetVal>=[(vOne),(TempStr1),0]
  118. `<SetVal>=[(NumKills),(TempStr1),0]
  119. `<SetVal>=[(LWeirdEvent),(TempStr1),0]
  120. `<SetVal>=[(DoneSpecial),(TempStr1),0]
  121. `<SetVal>=[(FlirtP),(TempStr1),0]
  122. `<SetVal>=[(NewOne),(TempStr1),0]
  123. `<SetVal>=[(NewTwo),(TempStr1),0]
  124. `<SetVal>=[(NewThree),(TempStr1),0]
  125. `3Done! :)
  126. @#MainMenuOptions?
  127. `<SetMenu>=[MainMenu]
  128. @#MainMenuOptionsS
  129. //Stuff taken outta lifes inn...
  130. `<NewLine>
  131. `2--
  132. `9::`!
  133. `<PrintVal>=[(Married),(TheUser)]
  134. `9::`!
  135. `<PrintVal>=[(MarriedTo),(TheUser)]
  136. `9--
  137. `<PrintVal>=[(LastAlive),(TheUser)]
  138. `--
  139. `3  You purposefully stride accross the marble lobby floor towards
  140. `3the front desk and in an unwavering, commanding voice declare that
  141. `3you are tired and desire a room right away so you can sleep...
  142. `5  The innkeeper looks at you with glaring eyes which you feel
  143. `5boring into your soul...can he sense your unease?
  144. `<SetVal>=[(TempStr3),(TheUser),out.]
  145. `<AddVal>=[(TempStr3),(TheUser),(TUserNum)]
  146. //Checking if lord creats out.* file
  147. `<FileExists>=[(TempStr3),(TheUser),(TLordsDir)]
  148. //if lord duzn't then its no good...cannot do it...
  149. `<if>=[(TempStr3),(TheUser),FALSE,@#ItsANoGo]
  150. //  below set up file name out.<UserNum>
  151. `<SetVal>=[(TempStr3),(TheUser),out.]
  152. `<AddVal>=[(TempStr3),(TheUser),(TUserNum)]
  153. `5  The innkeeper finally smiles disarmingly...
  154. `<NewLine>
  155. //
  156. //  Now new stuff follows ... writing out.# in lifes dir
  157. //  SO LIFE KNOWS WHAT TO DO
  158. //
  159. `<SetVal>=[(TempStr1),(TheUser),(OtherDir)]
  160. `<AddVal>=[(TempStr1),(TheUser),TESTTXT.DAT]
  161. `<FilePrint>=[(TempStr1),(TheUser),(TLifesDir),(TempStr3),`]
  162. //
  163. //  Now just like before ... must write out.# in lords dir
  164. //  SO LORD KNOWS WHAT TO DO
  165. //
  166. `3Right this way sir...
  167. `<SetVal>=[(TempStr2),(TheUser),(TLifesdir)]
  168. `<AddVal>=[(TempStr2),(TheUser),LIFE.EXE *]
  169. `<Delete>=[(TLordsDir),(TempStr3)]
  170. `<SetVal>=[(TempStr1),(TheUser),`3IN THE TEMPORARY MODULE`2!]
  171. `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TempStr3),`]
  172. `<SetVal>=[(TempStr1),(TheUser),(TempStr2)]
  173. `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TempStr3),`]
  174. `3Leaving Life...Leaving Lord...Preparing for sleep...
  175. `<Exit>
  176. @#ItsANoGo
  177. `2
  178. `4  I'm sorry pal...but I can't get you outta lord...
  179. `3Your ver of lord is too ancient...
  180. `2
  181. @#MainMenuOptionsH
  182. `<NewLine>
  183. `<ReadTextFile>=[(TempStr0),(OtherDir),testtxt.var,5]
  184. `<PrintVal>=[(TempStr0),(TheUser)]
  185. `<NewLine>
  186. `<PrintVal>=[(TestDouble),(TheUser)]
  187. `<NewLine>
  188. `<PrintVal>=[(TestStr),(TheUser)]
  189. `<NewLine>
  190. `<PrintVal>=[(TestInt),(TheUser)]
  191. `<NewLine>
  192. `<PrintVal>=[(TestLong),(TheUser)]
  193. `<NewLine>
  194. `<AddVal>=[(TestInt),(TheUser),1]
  195. `<RetOff>
  196. `9 You have selected this option :
  197. `<PrintVal>=[(TestInt),(TheUser)]
  198. `9 times today! Cool eh?
  199. `<NewLine>
  200. `<RetOn>
  201. `9 You don't think so?
  202. `<RetOff>
  203. `3 Ok well here is :
  204. `<PrintVal>=[(TestInt),(TheUser)]
  205. `3 gold to prove it! :)
  206. `<NewLine>
  207. `<RetOn>
  208. `<AddVal>=[(LordGold),(TheUser),(TestInt)]
  209. `<NewLine>
  210. `%  Ya it's what I said...this is a test module...
  211. `2It doesn't do anything INTERESTING yet!
  212. `3BUT IT SHOWS YOU THAT YOU TOO CAN MAKE YOUR OWN LORDLIFE MODULES
  213. `3JUST USING EDIT....and the instructions supplied in lordlife.
  214. `5  Thank-you
  215. `2bye :)
  216. `<SetVal>=[(TestDouble),(TheUser),123456789]
  217. `<SetVal>=[(TestStr),(TheUser),HAHAHAAHHA]
  218. `<SetVal>=[(TestLong),(TheUser),77777]
  219. @#MainMenuOptionsQ
  220. `<Quit>
  221. @#UserFound
  222. `<NewLine>
  223. `3 This has already been done!
  224. `3The new player will only be created again if it
  225. `3no longer exists!
  226. `<NewLine>
  227. @#UserNotFound
  228. `<NewLine>
  229. `3  Wow I am impressed! you must have too many
  230. `3users for me to create a lord char!!!
  231. @#END
  232.